100 REM DIREKTORY-AUSDRUCK FUER FLOPPY 1541
120 PRINT"[147] DIRECTORY-LISTING [146]"
130 PRINT"SIE KOENNEN SICH DAS LISTING AUF DEM"
140 PRINT"BILDSCHIRM (3) ODER AUF DEM DRUCKER (4)"
150 PRINT"BZW. (5) AUSGEBEN LASSEN."
160 INPUT"AUSGABE-ADRESSE  4[157][157][157]";Z
170 IFZ<3ORZ>5THENPRINT"[145][145][145]":GOTO160
180 IFZ=5THENP$="            "
190 IFZ=4THENP$="[145]            "
200 INPUT"DATUM                    [157][157][157][157][157][157][157][157][157][157]";D$
210 INPUT"SEITE    [1/2]   1[157][157][157]";ST$
220 INPUT"DISK-FORMAT      1541[157][157][157][157][157][157]";DF$
230 INPUT"END-ADR. [J/N]   N[157][157][157]";Z$
240 PRINT"[147]"
250 DATA 169,0,162,4,149,98,202,16,251,169,160,133,97,162,2,32,198,255
260 DATA 230,101,208,10,230,100,208,6,230,96,208,2,230,98,32,228,255,165,144
270 DATA 240,235,32,204,255,198,97,6,101,38,100,38,99,38,98,16,244,96
280 FORJ=860TO914:READX:POKEJ,X:NEXTJ
290 DATA "SEQ","PRG","USR","REL"
300 FORJ=1TO4:READT$(J):NEXT
310 IFASC(Z$)=74THENF=1
320 OPEN4,Z:OPEN15,8,15,"I":CLOSE15
330 G$="                 "
340 OPEN1,8,3,"$"
350 GET#1,A$
360 FORJ=1TO141:GET#1,A$:NEXTJ:GOSUB510
370 FORJ=0TO1:GET#1,A$:NEXTJ
380 FORJ=1TO89:GET#1,A$:NEXTJ
390 N$=LEFT$(N$+"               ",16)
400 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
410 PRINT#4,P$"[165] "CHR$(14)N$CHR$(15)"  [165] ";CHR$(14)I$CHR$(15)" [165]"
420 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
430 PRINT#4,P$"[165] "CHR$(14)D$CHR$(15)" [165]"CHR$(14)"SEITE"CHR$(15)" ";
440 PRINT#4,CHR$(14)ST$CHR$(15)" [165]"CHR$(14)DF$CHR$(15)"[165]"
450 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
460 IFF=1GOTO480
470 PRINT#4,P$"[165]FILE-NAME       [165]TYP[165]BLK[165]SP[165]SE[165]START      [165]":GOTO490
480 PRINT#4,P$"[165]FILE-NAME       [165]TYP[165]BLK[165]SP[165]SE[165]START-ENDE [165]":GOTO490
490 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
500 BL=0:GOTO600
510 FORJ=1TO16:GET#1,A$:IFA$=CHR$(160)GOTO530
520 N$=N$+A$
530 NEXTJ:GET#1,A$,A$
540 FORJ=0TO1:GET#1,A$:IFA$=CHR$(160)GOTO560
550 I$=I$+A$
560 NEXTJ:GET#1,A$:RETURN
570 PRINT#4,"$";:X=B/16:GOSUB580:X=A/16:GOSUB580:Y=256*B+A:RETURN
580 FORJ=1TO2:X%=X:X=(X-X%)*16:IFX%>9THENX%=X%+7
590 PRINT#4,CHR$(X%+48);:NEXTJ:RETURN
600 Q=Q+1
610 GET#1,M$,T$,S$:IFS$=""THENS$=CHR$(0)
620 F$="":FORJ=1TO16:GET#1,A$:IFA$=CHR$(160)GOTO640
630 F$=F$+A$
640 NEXTJ
650 FORJ=1TO10:GET#1,A$:NEXTJ
660 L=0:IFA$<>""THENL=ASC(A$)
670 GET#1,A$:IFQ<8THENGET#1,A$,A$:GOTO690
680 Q=0
690 IFM$=""GOTO910
700 M=ASC(M$)AND15:IFM<1ORM>4THENM=0
710 ML$="[165]                                          [165]"
720 IFN%=0THENPRINT#4,P$;ML$:N%=-1
730 PRINT#4,P$"[165]"F$LEFT$(G$,16-LEN(F$));
740 PRINT#4,"[165]"T$(M);
750 K$=MID$(STR$(L),2):PRINT#4,"[165]"LEFT$(G$,3-LEN(K$))K$;:BL=BL+VAL(K$)
760 K$=MID$(STR$(ASC(T$)),2)
770 PRINT#4,"[165]"LEFT$(G$,2-LEN(K$))K$;
780 K$=MID$(STR$(ASC(S$)),2):PRINT#4,"[165]"LEFT$(G$,2-LEN(K$))K$"[165]";
790 IFM=0THENPRINT#4,"           ";:GOTO900
800 OPEN2,8,4,DR$+":"+F$+","+T$(M)+",R"
810 A=0:IFM<>2GOTO850
820 GET#2,A$,B$:A=0:IFA$<>""THENA=ASC(A$)
830 B=0:IFB$<>""THENB=ASC(B$)
840 GOSUB570:IFF=0THENPRINT#4,"      ";:GOTO890
850 POKE785,92:POKE786,3:C=USR(0):A=A+C:A$=RIGHT$("     "+STR$(A),5)
860 IFM<>2THENPRINT#4,A$" BYTES";:GOTO890
870 PRINT#4,"-";:A%=A/256:A=A-A%*256:B=B+A%
880 GOSUB570
890 CLOSE2:PRINT#4,"[165]";
900 PRINT#4
910 IFST=0GOTO600
920 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
930 BL$=RIGHT$("   "+MID$(STR$(BL),2,4),4)
940 FR$=RIGHT$("   "+MID$(STR$(664-BL),2,4),4)
950 PRINT#4,P$"[165]BLOCKS : 664   BELEGT : "BL$"  FREI : "FR$" [165]"
960 PRINT#4,P$"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
970 CLOSE1:CLOSE4:END